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; 1 001 MODULE upgrade (IDENT='V04-000' 

; § 0 ADDRESSING_MODE (EXTERNAL=GENERAL) ) 

; i st : = BEGIN 

: 5 B08? : , Seerererenenenenrarerererararerecereresrereretereenenenenerenerenetenetsetes 
; 'e e 
; ‘ 007 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 8 008 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
; B2yP : it ALL RIGHTS RESERVED. 2 
Ps : * 
. 0011 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 \¢ polg 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 1 001 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
- oe 0014 1 !* COPIES THEREOF MAY NOT SE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 15 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 pots : :* TRANSFERRED. a 
Py H oo 
H 18 sid 4 1 ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 19 001 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $y Base . . CORPORATION. * 
Py : n 
3 $§ 0092 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 2 00 1 != SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
8 BEE 
° + * 
: $8 it 4 : i eeeeeeeeeeeeeeeeeeeeeeeeneeeeeeteeteeeeereeeeeeeeeeeeeeaeeeeeteeeeneeeeeeee 
; 0 

; @& 0028 1 '++ 

: 50 534 ! } Facility: Command Definition Utility, CLI Table Upgrade Module 

; 1 0031 1 ! Abstract: This module is solely responsible for the upgrading of 

2) i 4 1! old format CLI tables to the latest format level. The 

- os 0033 1! module is included in both the CDU and the CLIs, and thus 

; $e Bae : } must be completely self-contained. 

; 36 0036 1! Environment: No assumpt‘ons may be made about the environment. 
a. ae 0037 1! No own storage is allowed. 

; $3 sit : : No external references are allowed. 

: 40 0040 1 ! Author: Paul C. Anagnostopoulos 

a. @& 0041 1 ! Creation: 8 March 198 

3 $¢ 0042 1! 

; 4 0045 1 ! Modifications: 

; 46 044 1! 

3; 6 045 1! v04-003 BLS0285 Benn Schreiber : 9-MAR-1984 

; 46 0046 1! If image name Longth is 0, then it's a routine address, 

; rt 4 Bee : which counts for 4 bytes. 

> 49 0049 1} v04-002 BLS0270 Benn Schreiber 9-F EB-1984 

; 0 8930 ! : Correct errors in structure Length computation. 

; 52 4 1/ V04-001 PCA1026 Paul C. Anagnostopoulos 25-Jul-1983 

; > 0053 1! Add probe to check readability of command table to be 

>, 0054 1! converted. Fix bug in creation of entity block, so that 

: = 0055 1! a label is always included. 

3 28 8038 1 !e- 

re 0057 1 
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! The yi pees names are chosen so DCL won't break when it Links 
! with this module. The leading underscores cause the psect to appear 
! at the end of the image. 


psect plit = _cdu$Split(align(0),read,nowrite,noexecute); 
psect code = _cdu$code(align(0),read,nowrite,execute); 


: TABLE OF CONTENTS 


forward routine 
cdu$Supgrade_table, 


6. allocate, 
_2t0_6_vector: novalue, 
upgrade 2 +.2.compande novalue, 


entity: novalue; 


: MACRO DEFINITIONS 


! The following macro will return the Length of an ASCIC string which is 

! present at a certain offset within a block. If the offset is within the 
! fixed portion of the block, then there is no string. Or, the byte at the 
! offset may not be readable. 


macro 
aoc tc Length i che peck, the_sf feet? = 
(builtin 


prober; 
if the_offset lequ 8 then 


else if groper <drets sl$c_user) ,Zref(1),the_block+the_offset) then 
+ch$rchar(t e_block+the_of fset) 


0 


else 
) &; 


The following macro will translate an old block address into the 
corresponding new block address. This is done by looking up the old 

address in the vector of old addresses and taking the correspenging entry 
from the vector of new addresses. Note that the zeroth entry of the vectors 
contains the entry count. 


macro 
nou_block address(old_block_address) = 
in 


old_block_address_bind = old_block_address: block(,byte); 


incr i from 1 to .old_vectorl[0} do 
if old_block_address_bind eqla .old_vectorl.i] then 


4 | 
WESe|9Ht GESEGE  WYEAAELLENERE Y6s°cZSuncee.oso:42% ch 
exitloop .new_vectorl.i] 
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lee 
! Description: This routine is called whenever a CLI table is about to be 
' used. Its ow is to upgrade the CLI table to the latest 


format level, so that no other module need be concerned 
with any format but the Latest. 


' 

' 

, 

! Parameters: table By reference, the address of the CLI table 

: (its primary vector block). 

: new_pointer Optional, . reference, a longword which is 

: to receive the address of the upgraded table. 
: get_vm Optional, by reference, the address of a 

i routine with the same interface as LIBSGET_VM, 
; for obtaining virtual memory. 

free_vm Optional, by reference, self-explanatory. 

! 

Returns: A status describing what happened. 


GLOBAL ROUTINE cdu$Supgrade_table(table: pointer, 
new_pointer: ref vector(1,long], 
get.vm: pointer, 
ree_vm: pointer) 
= BEGIN 


Local 
level: long; 


builtin 
nullparameter, 
prober; 


! The first — to do is ensure that we can read the table. If not, 
! just return a bad status. This is done because we may be called 
! Dy DCL when there is no current CLI table. 


WR CO OODNOAVEWN OC OONAVE WN HOO DNAOUEWN-OOONAU 


if not prober(Zref(psl$c_user) ,Zref(1),.table) then 

return msg(cli$_invtab); 

! We need to do is determine the format level of the table. 

! Prior to levei 6, the hy ek vector block had a different format, so 
! we have to determine the basic format and then the exact level. 


level = (if .cableCvec_w_size] eqlu vec_k_length and 
-table(vec_b_ftype) eqlu block_K_Vector then 
: -table(Cvec_b_strivi] ! Level 6 or later. 
else 
-tableCvec5_b_strivl)); ' Level 5 or earlier. 
! Select on the format level of the table. 
selectoneu .level of set 


(5): 
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4 We = 
1Bosepn1964 28:55:35 vatet1 Bise=82 v4.0 


It's a level 5 table, so we can upgrade it to the latest level. 

If we were called with only one argument, however, that means that 
the caller doesn't think we should ungrece an old table. This is 
true of the process-permanent table, because the user should 
understand the implication of upgrading old CLDs, and is thus 
required to do it by hand. 


(if nullparameter(2) then 


return msg(cli$_oldtab); 
Call a routine to upgrade the table. It returns the final status. 


return upgrade_5_to_6(.table,new_pointer(01,.get_vm,.free_vm);); 


sae4 Pa 
- SRC JUPGRADE .832;1 


(6): 
! Level 6 is the curreri level. 
(if not nullparameter(2) then 
new poinier([0] = .table; 
return msg(cliS_oktab);); 
Cotherwise): 
! God knows what this table is. 
return msg(cli$_invtab); 
tes; 
END; 
-TITLE UPGRADE 
-IDENT \V04-000\ 
-EXTRN CLIS_INVTAB, CLIS_OLDTAB 
eEXTRN CLIS_OKTAB 
-PSECT _CDUSCODE,NOWRT,0O 
0004 00000 -ENTRY CDUSUPGRADE TABLE, Save R2 
52 00000000G 8F D0 00002 MOVL #CLIS_INVTAB, R2 
50 04 Ag DO 00009 MOVL TABLE, R 
60 01 0¢ 0000D PROBER #3, #1, (RO) 
4 12 00011 BNEQ 1$ 
50 2 b0 00013 MOVL R2, RO 
04 Baie RET 
14 0 B61 00017 1$ CMPW (RO), #20 
C 12 QUOTA BNEQ $ 
01 02 aod 91 ba} CMPB (RO), #1 
06 12 00 BNEQ 
51 04 AO 9A 000 MOVZBL 4(RO), LEVEL 
04 11 88 3 BRB 3$ 
51 28 AO 9A 000 ¢ MOVZBL 40(RO), LEVEL 
05 1 D1 0002C 3$ CMPL LEVEL, # 
1 12 0002F BNEQ 6$ 
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1151 
1169 


1170 
1176 
1177 
1178 
1180 
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UPGRAD 1b-se 1984 :: 5 VAX=11 Bliss-32 V4.0-74 7 
Rend Fae scat hs oT SR Sy oe OES eh | B32:1°9° (35 
| 02 6c 91 00031 CMPBsCAP), #2 : 1195 
iF 00 BLSSU : 
08 aC D TSTL (AP) : 
| 0 12 000 BNEG : 
| 50 000000006 8F 06 tf 4$ MOV #CLIS_OLDTAB, RO : 1196 
7E oc AC i" 043 5$ MOVQ  GET_VM, =(SP) + 1200 
8 AC DD 004 PUSHL NEW"POINTER ; 
50 DD OO04A PUSHL : 
0000v CF 04 FB 004 CALLS #4, UPGRADE_5_T0_6 : 
06 51 D1 00052 6$ CMPL VEL, #6 : 1202 
16 » Spee BNEQ 3 
02 6c 91 00057 CMPB ss CAP), #2 : 1206 
09 1 OO05A BLSSU 7 : | 
08 AC D5 0005¢ TSTL CAP) ; 
04 13 0005F BEQL : | 
08 ac 50 DO 00061 MOVL RO, @NEW_FOINTER + 1207. 
50 000000006 &F D0 00065 7$ MOVL  #CLIS_OKTAB, RO : 1208 
04 0006C RET 3 
50 52 DO 0006D 8$ MOVL  R2, RO > 1214 
04 00070 RET + 1217 


; Routine Size: 113 bytes, Routine Base: _CDUSCODE + 0000 


= 
| 
| 
! 
| 
j 
| 


—_—_ 


status: long, 
old_vector: ref eeboe % 
new_vector: ref vectorl, 
block count: long initia 
old_block: pointer; 


! First we must allocate space for two vectors, with an entry for each of 
the blocks in the old CLI table. The OLD_VECTOR will contain 
i 


F 4 
| UPGRAD 15-Sep-1984 23:53: VAX-11 Bliss-32 V4.0-74 Page 8 
‘voer006 127868198 1:33:33 DL EKSVMEMASTERSCCDU. SRCSIUPGRADE B32: 1 ° (4) 
; 213 1 ‘+4 
14 1 ! Description: This is the main routine for upgrading a level 5 (VMS V3) 
HF CLI table to level 6 (VMS V4). 
9 ! Parameters: table By reference, the address of the CLI table 
18 : ; (its primary vector bl . E 
19 ! new_pointer By reference, a longword in which to return 
20 : the address of the new table. 
21 / et_vm By reference, see above. 
§ ree_vm By reference, see above. 
24 § } Returns: By reference, the new primary vector block. 
26 § ' Notes 
th 5 = 
$3 $3 ROUTINE upgrade_5_to_6(table: pointer, ; 
0 $3 new_pointer: ref vector(1,iong], 
31 3 get_va: pointer, 
32 23 reé_vm: pointer) 
$ 33 = BEGIN 
35 4 local 
24 
24 
24 
24 
24 
24 
24 
24 
24 


the 
addresses of the old CLI table blocks, while the NEW_VECTOR will contain 
the address of the corresponding new block. 


status = (.get_vm) (Zref(.tableCvecS_l_free]/12*4), old_vector); 
status = (.get_vm) (Zref(.tablelvec5_l_free]/12*4), new_vector); 
! Now we can allocate space for new blocks, one for each of the old 

' blocks. This is done by scanning the old CLI table from beginning to 

! end, and calling the allocation routine for each one. As we go, the 

! old and new block address vectors will be filled in. Note that the first 
! entry in the vectors will reference the primary vector block. 


old_block = .table; 
while .old_block lssa .table + .tableLvec5_l_free] do ( 
increment (block_count); 
old_vector(£.block count] = .old_block; 
old_block = .old_ aes + 
upgrade_5_to_6_allocate(.old_block,new_vector(£.block_count],.table,.get_vm); 
if .new_vector£.block_count] eqla 0 then 
return msg(cl7$_invtab); 
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64 5 

65 ); 

67 ! Store the block count as the zeroth entry in both vectors, so that the 
re § ' vectors are self-describing. 


Fi 
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: rp } Ne old_vector([0] = new_vector([0] = .block_count; 

: 7 1 8 ! Once the new blocks are allocated, we can fill them in. We make a pass 
.) ae 1 4 i over the address vectors, calling a routine for each of the possible 
; a : 9 i cases. 

: ‘ i incru i from 1 to .block_count do ( 

: 278 1 es bind 

: 94 : Be new_block = .new_vector(.iJ: blockC,bytel; 

: 81 1286 4 (selectoneu . ney. zblockCvec 3 b type] 0 of get 

3 1287 4 block_k_vector 6_vector; 

; SB 1288 4 block_ ke command): upgrade mh to “6_ command; 

; 284 1558 4 block_k mS be upgrade_5_to_6_entity; 

3 286 1331 3 tes) (new_block,.old_vectorl.iJ?.new “vector, .old_ vector,.get_vm); 
: 287 129 

8 43 1398 0 ! Store the address of the new table in the requested place. 

: 344 1$3? new_pointer(0J = .new_vector(1]; 

: 332 44 ; ! Free up the memory that was allocated for the address vectors. 

: 294 +44 + status = t: free_vm) (Zref(.tableCvecS_l_free]/12*4), old_vector); 

3 344 1309 status = (.free_vm) (%ref(.tableCvec5_l (“free]/12%4), new_vector); 

: 297 1308 § return msg(cli$_upgtab); 

: 298 1303 2 

; 299 1304 1 END; 


.EXTRN CLIS_UPGTAB 


OOFC 00000 UPGRADE_5_T0_6: | 
~.QorB ; 1234) 


Save R2,R3,R4,R5,R6,R7 3 
5E 0c C2 0000 SUBL2 ; | 
53 04 0000 CLRL —« BLOCK COUNT : 1238 | 
04 AE 9F 00007 PUSHAB OLD _VECT : 1253 
55 04 AC DO OO00A MOVL ‘TABLE RS : 
52 24 «AS OC C7 00005 DIVL3 #12, $6(R5), R2 ; 
52 04 ¢4 0001 MULL2 #4, R2 
04 AE 52 pO 90016 OVL R2, 4(SP) : 
04 AE 9F OOO1A PUSHAB 4(§P) : 
0c BC 98 FB 0001p CALLS 2, aGET_VM F 
57 50 00 00021 VL —sRO,-STATOS ; 
08 65 OF B08 4 PUSHAB NEW VECTOR : 1254 
04 AE 52 00 00027 MOVL  R2,~4(SP) ; 
04 AE 9F 00028 PUSHAB 4(SP) ; 
0c BC 0 FB 00 CALLS #2, aGET_VM : 
? 50 00 000 MOVL R * STATOS : 
56 55 D0 000 MOVL g Oke BLOCK ; 1262 
54 08 AE DO 00038 MOVL VECTOR, R4& : 126 
52 55 24 AS C1 0003C 18: ADDL3 a ers) RS. abe > 1263. 
52 56 D1 00041 CMPL OLD 8.6c Ck, ; 
26 1€ 90044 BGEGU ; 


5! H 4 
-Sep- 253: VAX-11 Bliss-32 V4.0-74 Page 10 
UPGRADE 12208-1982 97:23:53 SIEKSVMGMASTERSLCDU. SRC TUPGRADE 83251 (4) 
NT 3; 1264 
33 8 $bc8 nove OLD BCock. @OLD_VECTORCBLOCK_COUNT] : 1388 
<— 0c ae DD G9¢p PUSHL GET" VM : 1267 
: : 
ads FS Boe om ; 
0000v CF ; Pe $08 CALLS #4, UPGRADE_5_T0_6_ALLOCATE : 
f CO 0005¢ ADDL2 RO OLD BLOCK ye 
6023 D O05F iste (R4) CBLOCK_ COUNT ; 
DB 12 0006 3 
50 000000006 8F pO tite MOVL #CLIS_INVTAB, RO ; _ 
: K_COUNT, (R4) : 
St 33 4 ap9se spi Move BLOCK-COUNT. @OLD_VECTOR ; 
” 8 81 D0 Go078 MOVL ai. I” ; 1281 
42 11 000 : 
51 oued DO $0078 3$ MOVE (R4)C1T, RI ; 1284 
re ee a eae a 1 
4$ : 
50 0000v of of itt BOVAB UPGRADE_5_T0_6_VECTOR, RO : 
1B 11 OOO8A BRB “ = 
02 50 91 9008¢ 4$: CPB RO, ; 
50 0000v of oe 00091 MOVAB UPGRADE _5_T0_6_ COMMAND , RO i 
F : 
0 50 #1 0008 ss: Ene ae i 128s 
. Hc oan : 
50 0000v CF i 90042 68: MOVAB UPGRADE_5_TO_6_ENTITY, RO 5 con 
8 AE DD OOOAA PUSHL OLD-VECTOR ; | 
10 Bez? BD SOOAT PUSHL @OLD_VECTORLI) 
60 35 Pe 00088 CALLS #5, (RO) 1281 | 
53 35 pe S00R 8$: CPL 1, BLOCK_COUNT ; | 
8 Ni inetd MOVL  4(R4), @NEW_POINTER 3 1295. 
=.= y% AE 9F 000C4 PUSHAB OLD VECTOR ; 1299 
52 24 «AS 0C C7 000C7 bivi3 ele. 36(R5). R2 ; 
4 3 56 boorr MOVL R2, 4(SP) 
pit tie 04 AE 9F 00003 PUSHAB 4(SP) 
10 BC F boone CALLS #2, @FREE_VM : 
7 g 8 OODA MOVL RO, STATUS 2 300 
08 AE 9F 000DD PUSHAB NEW. VECTOR ; 
olay: 04 i ? Sore PUSHAB Rep) : 
10 BC FB 000E7 CALLS a, aFREE_VM 
26 s 00 itd HOVE PCL IS UPGTAB RO : 1302 
pe Geneeeeee Be Mita: RET - : 1304 


3; Routine Size: 246 bytes, Routine Base: _CDUSCODE + 0071 
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01 5 'e¢ 
4 ! Description: This routine is called to allocate a level 6 block 
0 } corresponding to an old level 5 block. 
i Parameters: old_block By reference, the old block for which a new 
; one is to be allocated. 
| new_pointer By reference, a ag ee to receive the 
i address of the new block. 
table By reference, the address of the old CLI 
: able. 
get_vm By reference, see above. 
Returns: Length of the old block. 


; Notes: 


ROUTINE upgrade_5_to_6_allocate(old_block: pointer, 

new pointer: ref vector(1,long], 
table: pointer, 

get_vm: pointer) 

= BEGIN 


local 

status: long, 
new_block: pointer, 
old_length: long; 


To allocate a new block, we must determine the type of the old block. 
This is not easy. Once determined, we can allocate space for the new 
block and set up its type and subtype. We must also determine the length 
of the old block so we can return it. 


First we will determine whether the old block is a vector block. 
This is done by comparing its address to the addresses of the gh 
vector block, the verb name table, and the command block pointer table. 


ALAA ALA AAO PURIPUPUNUPUTUND  — 2 = — — —  — OOOOO. 
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zn if .old_block eqla .table then ( 
t ! It's the primary vector block. 
328 old_length = vec5_k_ length; 
see status = (.get_vm)(Zreflvec_k_length), new_block); 
45 new_blockCvec_B_type] =_blotk"k_vector; ; 
§ new_block(vec_b_subtype] = .old_block(vecS_b_clil+1; 
os ) else if .old_block eqla .table + .table[vec5_l_verbtbl] then ( 


' It's the verb name table. 


old_length = .tableLvecS_l_verbend] - .tableCvec5_l_verbtbl); 

status = (.get_vm) (Zref(vec_k_header_length + .old_Tength), new_block); 
neu_blockivec_6. ty e] =_blotk-k vector; 

new_block(vec_b_subtype] = vec_K_verb; 


) else if .old_block eqla .table + .tableLvec5S_l_comdptr] then ( 
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3 136 
; 33 ! 68 ! It's the command block pointer table. 
3 1 1365 old_length = .tablelvecS_l_verbend] - .tablelvec5_l_verbtbl); 
; oe 1 66 status = (.get_vm) (Zref(Vec_k_header_length + .old_Tength), new_block); 
: 36 136 new_block vec_6 typed = block_k_ vector; 
; r¢: : re: new_block(vec_b_subtype] = vec_K_command; 
3 o8 1 % ) else ( 
: 1371 
; 368 1 ue local 
3 9 137 chq_tength: long, 
3 0 1374 cmd_length: Long. 
3 STi 1375 cmdnam_length: long, 
3 Lf: : zg ent_length: Long; 
: 3746 1398 ' Because the level 5 table blocks are not sol toreent tty tng it is 
s iro 1379 i difficult to determine what kind of block we have. We will 
; 376 1380 ' calculate the block length for each of the three other block types, 
; 318 133) ! and then decide which one we have. 
3; 379 1388 chg_length = chg5_k Longs + 
: 380 1383 ascic_Teng ht .old_plock..old_blockichg3_u_ {mage}: 
3 4! ie cmdnam_length = ascic_length(.old_block,.old_block£€cmd5_w_imageJ); 
; 385 1387 ! If the length is 0 (ascic_ length adds 1 for the count byte) then 
3 44 18 : there is no image name. Tength will be 4 for routine address 
; 386 1390 if .cmdnam_length eql 1 
3 Ser 1391 then cmdnam_length = 4; 
; «388 1392 3 cmd_length = cmd5_k_length + stndnen. length + 
: 389 1393 ascic_Tength(.old_block;.old_blockC€cmd5_w_outputs]); 
: 390 1394 ent_length = ent5_k Lengeh + 
; #391 1333 ascic_Tength(.old_block,.old_blockCent5_w_name]) + 
; 1396 ascic_length(.old_block,.old_blockCent5_w_label]) + 
.. 1397 ascic_length(.old_block,.old_blocklent5_widefval]) + 
3 335 1398 ; ascic_length(.old_block,.old_blockCent5_w_prompt]); 
3 3 1209 ? if .chg_length eqlu .old_block(chg5_b_size] then ( 
3 $05 1408 4 ! We have a change block. This becomes a command block in 
: 399 1403 4 ! the new table. 
: 400 1404 4 
; 401 1405 4 old_length = .chg_length; 
: 402 1406 4 status = (.get_vm)(Zref(cmd_k_length + 441), new_block); 
3: 403 1407 4 new_block{cmd_B_type] =_block-k_command; 
: 1698 ‘ new_block(cmd_b_subtype] = cmd_K syntax; 
3 rts} Hh é ) else if .cmd_length eqlu .old_block(cmd5_b_size] then ( 
: 408 ht 4 ! We have @ command block. 
; 409 1415 4 
: 410 1414 4 old_length = .cmd_length; 
3; (411 1415 4 status = (.get_vm)(Zref(cmd_k_length + 4+1 + 12), new_block); 
: a 1616 4 new_block(cmd_B_type] =_block—-k_ command; 
3 tt dt é new_block(cmd_b_subtype] = cmd_K_verb; 
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3 ret 1438 $ ) else if .ent_length eqlu .old_blocklent5_b_size] then ( 
: “18 1421 4&4 ! We have an entity block. 
; o13 14 ¢ 4 
3; 41 14 4 old Longt® = .ent_length; 
; 420 1426 4 status = (.get vad (iret (ent k_len ngth + 16 + 16 + 64 + 16), new_block); 
: 421 1425 4 new ‘blockLent _B_type] = blotk_k_entity; 
3 «6 ¢ 14 § 4 
; 4 14 4 ) else ( 
; 426 1428 4 
; 625 1429 4 ! Oh God, who knows what this block is? 
; 4 § 1430 4 
; 4 1431 4 old_length = 0; 
: 428 14 ; 4 new_block = 0; 
; 429 14 ; ); 
; 4350 1434 ); 
; 431 1435 
3 $36 14 : ! Store the address of the new block where requested, and return the Length 
3s 43 143 ! of the old block; 
3; 434 1438 
; 435 1439 new_pointer([0) = snow. block; 
: 436 1440 return .old “Length 
3; 637 1441 
; 438 1442 1 END; 
O1FC 00000 UPGRADE_5 10.6 MLOCAT 5: 
.WORB ~ Save R2,R3,R4,R5,R6,R7,RB 3 1322. 
5E 08 00002 SUBL SP 3 
54 04 AC 5 00005 MOVL OLb BLOCK, R4 + 1343 
53 0c aC 00 00009 MOVL TABLE, R3 3 
53 54 D1 00000 CMPL R4, RS : 
4 12 00010 BNEQ 1 3 
52 C 00 BOO MOVL #60, OLD_LENGTH 3 1347) 
04 AE 9F 0001 PUSHAB wou BLOCR : 1348) 
04 AE 14 p00 00018 MOVL #20, 4(SP) é 
04 AE 9F 0001C PUSHAB 4(SP) ; | 
10 C 02 FB OOOIF CALLS #2, @GET_VM $ 
1 04 AE 00 909 3 MOVL  NEW_BLOCR, R1 ; 1349 
02. Al 01 90 00027 MOVB ® BERS) 3 
03. =A! 2A AG 9} #1 002B ADDB3 #1, 42(R4), 3(R1) : 1370 
4 11 00051 BRB 3$ 3 1343. 
51 53 Oc Ad C1 000 ; 1$: ADDL3 12(R3), R3, RI : 1352. 
51 54 D1 000 CMPL R4, R1 3 
21 i $0 B BNEQ es ; 
52 10 A3 0c AS § 0 8 SUBL3 (R3), 16(R3), OLD_LENGTH 3 1336 
4 AE F 0004 PUSHAB NEW BLOCK : 1357 
04 AE 8 Ad 9E Ree MOVAB 8(R2), 4(SP) $ 
04 ry: OF 4B PUSHAB 4(SP) : 
10 Bf 02 F 4 CALLS #2, @GET_VM 3 | 
1 * AE OC MOVL wee BLgER R1 : 1358 
02 Al 0301 ef ; MOVW #769, 2(R1) : 
9 C BRB 3§ 3 1352 
51 53 1¢ A3 C1 QO0S5SE 2$ ADDL3 (R3), R3, RI : 1561 
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+5 04 ag DO OOICC 248: MOVL NEWBLOCK, @NEW_POINTER 3 1439. 
52 D0 00101 MOVL  OLDILENGTH, R 3 1440. 
04 00104 RET 3 1442) 


3; Routine Size: 469 bytes, Routine Base: _CDUSCODE + 0167 
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VoL" 000 12286-1382 $7 :33:33 DLSKSVMSMASTERSCCDU. SRCTUPGRADE 832; 1 9 
; 440 1443 1 S44 ; 
> 4461 1444 1! Description: This routine is called to fill in a new vector block from 
: rr 1962 } the corresponding old block. 
> 444 1209 1 | Parameters: new_block By reference, the new block to be filled in. 
> 44465 1448 1! The type and subtype are already present. 
; 446 1449 1! old_block By reference, the corresponding old block. 
> 4467 1450 1! new_vector By reference, the vector of new block 
: 448 1451 1! addresses. Zeroth entry is block count. 
> 449 a 1} old_vector By reference, the vector of old block 
; 450 1455 1! addresses. 
: te eee : } get_vm By reference, see above. 
: 438 1436 i Returns: Nothing. 
: 455 1458 1 | Notes: 
; 456 1459 1 !-- 
3; 457 1460 1 
; 458 1461 1 ROUTINE upgrade_5_to_6_vector(new_block: pointer, 
; 459 1ee6 1 block: pointer, 
; 460 1463 1 new_vector: ref vector) «fered: 
; 461 1464 1 old_vector: ref vector(,longJ, 
; re Me Fi : get_vm: pointer) : novalue 
; 464 1467 2 = BEGIN 
3; 465 1468 
> 466 1469 local 
3 ret 1eny entry_count: long; 
: 469 1472 
? ony Ht, § ! Select on the subtype of the vector block. 
; $76 16%? § selectoneu .new_block(vec_b_subtype] of set 
> 474 1477 é Cvec_k_del 
3 ri hs 1o78 § vec_k-merd: 
: 477 1480 2 : We have the primary vector block. Fill in each field from the 
: $78 Het § ore primary vector block. We cannot determine the overall table 
; ! size. 
; 480 1288 
; «481 1484 (new blockCvec_w_size] = vec_k_length; 
3; 482 1485 new_Block(vec_w_Fflags) = 0; 
> 483 1486 new_block{vec_b-strivl) = 6; 
: 484 148 new_block(vec_w_tro count] = 2; 
: «4485 1488 new_block(vec_l"verBtbl] = new_block_address(.old_block+.old_blockCvec5_l_verbtbl]) = .new_block; 
; 486 1489 new_block{vec_l_comdptr] =_new block _address(.old_block+.old_blockCvec5_l_comdptr]) - .new_block; 
5 re 4 1629 new_block(vec_l-table_size] = 0;); 
; ret 1638 Cvec_k_verb]: 
; 491 1494 ! We have the verb name table. Initialize the new block header. 
; 49 1495 ! Then copy the verb name entries, conversing th m from blank 
5 ret 1638 ! padded with bit 7 set to zero padded with bit 7 clear. 
; 495 1498 (bind 
; 496 1499 new_verb_names = .new_block + vec_k_header_length: vector[,long], 
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old_primary = .old_vector(1]: Biscks -pyte ° 
old_verb_names = .old_block: vectorl,longJ; 


imaryCvecS_l_verbend] - .old_primarylCvecS_l_verbtbl]) / 4; 


9 
) 


entry._count = (.old 8 


r 
new_block(vec_w_size]_ = vec_k_header_length + .entry_count*4; 
new_blockivec_w_flags] = 6; 
new_blocklvec_w_tro_count] = 0; 
incr i from 0 to .entry_count-1 do ( 
bind 
old_name = old_verb_names “}! vectorté .pyte . 
new_name = new_verb_namesl.iJ: vectorl4,byteJ; 
new_name(0] = .old_name(0] and %x'7f'; 
new_name(1j = (if .old_namel1j] eqlu ' ° then %x'00° else .old_name(1)); 
new_name ¢ = (if .old_name $3 eqlu *° * then %x'00° else .old_name $3}: 
sat new_name = (if .old_name([3] eqlu ° ° then %x'00" else .old_name(3]); 
Cvec_k_command): 


! We have the command block poreeee table. Initialize the new 
' block header. Then copy the pointers, translating them to point 
! at the new command blocks. 


(bind 
new_command_block_pointers = .new_block + vec_k_header_iength: vector([,long], 
old_primary = .old_vector(1]: blockE byte . 
old_command_block_pointers = .old_block: vector(,long]; 
entry count = $06 gr tnoryCvecs | verbends - .old_primaryCvecS_l_verbtbl]) / 4; 
new_blockCvec_w_size] = vec_k_header_length + .entry_count*4; 
new_block(vec_w_flags] = 0; 
new_block(vec_w_tro_count] = .entry_count; 


incr i from 0 to .entry_count-1 do | , . 
new_command_block_pointersC.i] = (if .old_command_block pginterst. 42 eqlu 0 then 0 else | 
new_block_address(old_command_block_pointérsL.i+1J+.old_command_block_pointersl.i]) 
, -Mew_vector(1]J); 


OOFC 00000 UPGRADE_5_TO_6_VECTOR: 
.9ORB Save R2,R3,R4,R5,R6,R7 : 1461 
50 04 AC pO 00002 MOVL NEW BLOCK, RO > 1475 
51 3 Ag 9A 00096 MOV ZBL 3(R0), R1 : 
63 13 OOO0A BEQL g > 1477 
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51 D4 9002 CLRL eR ; 
4 11 00004 BRB 14$ : 
51 03 Al 9A 000D6 13$:  MOVZBL 3(R1), R1 : 
03 a3 31 90 ODA 14$:  MOVB  R1, 3(R3) : 
B4 5 6 F2 OOODE 15$: AOBLSS ENTRY_COUNT, I, 8$ + 1508 
94 OE ET + 1475 
04 51 91 OO0ES 16$: r R1, #4 + 1520 
64 iF OOE6 BNEQ =. 248 : 
55 10 aC D O00E MOVL OLD_VECTOR, RS + 1528 
5} 04 AS dO OO0EC MOVL. 4(R5), R1 : 
51 10 Al OC Al C3 000FO SUBL 12(R1§, 16(R1), RI + 1531 
56 31 04 C 000K DIVL3 #4, R1. ENTRY_COUNT : 
51 6 2 8 OOOFA SHL a. ENTRY_COUNT, R + 1532. 
60 51 08 Al OOOFE ADDW3 #8. R1, (RO) : 
06 AO B4 00108 CLRW = &(RO) : 1533. 
06 Ad 56 BO 0010 OVW  ENTRY_COUNT, 6(RO) : 1534. 
52 01 CE 00109 MNEGL #1, I + 1536. 
A 11 0010C BRB 23$ ; | 
54 08 BC42 00 00108 17$:  MOVL  @OLD_BLOCKLIJ, R4 + 1537) 
04 12 0011 BNEG  18$ : 
51 04 00115 CLRL eR ; | 
2a 11 00117 BRB 22$ ; | 
53 08 ache DE 00119 18$:  MOVAL @O0LD_BLOCKLIJ, R3 : 1538 
51 04 OO11E CLRL. oI : 
if 11 00120 BRB 20$ : 
5 04 A443 9E 00122 19$:  MOVAB 4 (R4)CR3), R7 : 
6541 57 01 00127 CMPL —R7, +(RS5)LIJ ; 
07 12 00128 BNEG 20 : 
51 OC BC41 DO 0012D MOVL § @NEW_VECTORCIJ, R1 : 
07 11 00132 BRB 1$ : 
65 F3 00134 : 
01 CE 00138 : 
AC DO 001 : 
AG C2 601 ; 
51 D0 001 ; 
56 F2 001 F 
04 001 ; 


| 

EA 51 20$: AOBLEQ (R5), I, 19% 
51 3 MNEGL #1, R1 ; 

54 0c 3B 218: MOVL NEW_VECTOR, R4 ; 1539 
51 04 3F SUBL2 4(R&), RI | 
08 A042 43 22%: MOVL R1, 8(RO)CII ; 1537) 
C2 52 48 23$: | AOBLSS ENTRY_COUNT, I, 178 : | 
4C 24$: RET ; 1546. 
; Routine Size: 333 bytes, Routine Base: _CDUSCODE + 033C 
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45 4 'e¢ 

4 4 ! Description: This routine is called to fill in a new command block from 

re ¢ the corresponding old block. 

49 5 i Parameters: new_block By reference, the new block to be filled in. 

4 5 : The type and subtype are already present. 
1 5 : old_block By reference, the corresponding old block. 

26 5 ' new_vector By reference, the vector of new block 

5 5 : addresses. eroth entry is block count. 

54 2 : old_vector By reference, the vector of old block 

55 : addresses. 

2$ 2 } get_vm By reference, see above. 

rh Returns: Nothing. 

60 i Notes: 

re leo 

88 ROUTINE upgrade_5_to_6_command(new_block: pointer, 

64 old_block: pointer, 

65 new_vector: ref vector(,long], 


old_vector: ref vector(,long], 
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; 1 1 

; 1 1 

; 1 1 

; 1 1 

3 1 1 

; 1 1 

3 1 1 

: 1388 

: 2 1 1 

3 1 1 

; 1 1 

3 1 1 

; 2 1560 1 

; 1561 1 

3 F 1562 1 

. 2 15635 1 

a 1564 1 

3 3 1565 1 

3 2 1566 1 

. 3 1567 1 

: 566 1568 1 

; 567 1569 1 get_vm: pointer) : novalue 

; 568 1570 1 

; 569 1571 2 = BEGIN 

3 970 157 

; rte. 157 local é . 

3 6 157 variable_ptr: pointer; 

: 3h 137 

; 372 : g ! Set up to add information to the variable portion of the new block. 

3 eer : variable_ptr = new_block(€cmd_z_variable); 

3 Sy 158 ! Split up depending upon whether we are to build a verb command block 

5 280 : : 2 ! or a syntax change command block. 

3 286 : : ; if .new_block(cmd_b_subtype? eqlu cmd_k_verb then ( 

; 584 158 : ! We are building a verb command block. Fill in the new block from 

; 585 158 ; ! the old one. 

; 586 158 

: 587 158 new_block{(cmd_w_flags] = 0; 

; 588 159 new_block{cmd_v_abbrev] = .old_block(cmd5_v_abrev); 

; 589 159 new _blockicmd_v_nostat)_= .old_ block pe vinostatd; 

: 590 159 new_block€cmd_v_foreign] = .old_ block(cmd5_V_foreign): 

; 591 159 new_block(cmd_v_immed] = _.old_bTock cogs .y immed]; 

: 236 159 new_block{cmd_v_mcrparse] = .dld_block(cmd5_v_mcrparse); : 

; 159 new_blockicmd_v_parms] = newblock cmd_v_quals] = new_block(cmd_v_disallows] = true; 
; 594 15 new_block cad.¥otro_ count) = 3; 

3 395 1597 4 new_block{cmd_l_parms] = (if .old_block(cmd5_w porns. eqlu 0_then 0 else 
: 296 1598 3 neu _bloe address(.old_block+.o.d_blocklemdS_w_parms]) = .new_vector(1)); 
; 1599 4 new_block(cmd_(_quals] = (if .dld_block{cmd5_w uals! éqlu 0 then 0 eTse 
; 598 1690 new_block address .old_oléck+ old block cmd5_w_quals]) = .new_vector(1)); 
; 599 1601 new _block(cmd_l_disallow] = 0; 

3; 600 1008 new_block cad b_nendlor ¢ = (if “td plockfcads wu. inage) eqlu 0 then 0 else cmd_k_user); 
; 601 160 new_block(cmd_v_mirparm] = .old_block(cmd5_v_minparm]; 


cc 
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| 
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; 60 1604 new_block(cmd_v =maxp old_block(cmd5_v_maxparm]; 

; 60 1605 new =pisctfendsb b- verb fre: 6; . 

; 604 1909 new_ block oe 

; 605 199 if Told “plocatengs ae eqtu 8 then 

3 new_block(¢md_w_ image 

; $09 1809 4 else ° 

; 608 1610 4 bind 

3 4 191) ? routine_longword = .old_block + .old_block{cmdS_w_imageJ: long; 

; 611 181 4 new _blockCcm 5” 0.33961 = = .variable ptr - .new_block; 

3 oie 1614 4 variable =ptrto - routine _longword; 

3; 61 1615 4 variable_p 9.8. 8, 

$ ole 19\3 4 variable_ ptr = .var able _ptr + 441; 

; 616 1618 ; if -old_block(€cmd5S_ w_outputs] + 0 then 

: 617 1619 “new_block(¢md_w_outputs] = 0 

; 618 1620 4 else ( 

; 619 1621 4 bind 

3 630 YS § ; outputs_list = .old_block + .old_block{€cmd5_w_outputs): vector(, byte); 

; ose 1624 4 new_block(cmd_w_outputs] = .variable_ptr - .new_bloc 

3s 62 1952 4 ch$move(1+.outputs_ istC] ,outputs_lTstl0J variable. * ptr): 

3 ost Ys $ 4 , variable_ptr = .variable _ptr + 1+.dutputs_ list 

3 $52 1658 : new_block(cmd_w_prefix] = 0; 

3; 62? 1063 

; 628 1630 ) else ( 

; 629 1631 

; 650 1636 ! We are building a syntax change command block. Fill in the new 

3 $3) 163? ! block from the old one as much as possible. 

; £33 1635 new_block(cmd_w_flags] = 0; 

: 634 1636 new_block(cmd_v =parns = .old _blockichg5_v_parms]); 

; 635 1637 new_ =piock cmd ve = ,old block€chg5_v_quals); 

; 636 1638 new_block(cmd_v_ teat lows)’: = true; 

3; 637 1639 new_block(cmd_w_tro_count 3; 

; 638 1640 4 new_block cad te arms) = (if sold blockEch : ste orng eqlu 0, phen 0 el 

; 639 1641 3 newb ck_address(.old_block ne cha>s wiparms]) - — vector(1]); 

; 640 lose 4 new_block(cmd t _quals) = (if .dld_blockl Rg sJ éqlu 0 chen se 

: 641 1643 3 block qiddress of -old_ bloc k*-old Me chs. w.quals]) - pany vector(1)); 

3 ot6 1644 3 new -piockfcad. l_disal low 

5 64 1645 4 new_block£cmd_b-handler) = af not .old_block{chg5_v_image] then cmd_k_sam 

> 644 1o66 4 else if .old- zblock chg5_w_image] eqlu 0 then cad. k_none 

3 645 164 else cmd_k_u 

: 646 1648 new_block{cmd_v_minparm] = rotd,btockt has. v_minparm); 

3; 647 1649 new_block(cmd_v_maxparm] = .old_block(chgS_v_maxparm); 

; 648 1650 new_block(cmd_b_ver pte 0: 0; 

3; 649 1651 new_block(cmd_w_nam 

3; 650 1638 if Told ~blocktchge- ~ sinagel eglu 9 then 

: «651 165 new_block(tmd_w_ image 

3 $26 1654 4 else ( 

; 65 1655 4 bind : 

3 $38 1038 ? routine_longword = .old_block + .old_block{chg5_w_image]: long; 

3 036 1658 4 new_block(cm o ggg 63. = .variable ptr - .new_block; 

: 65 1659 4 variable_ptr 00.52) s gi tout tne _Tongword; 

3; 658 1660 4 variable_ptrl4,0, 6 
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; 659 1661 4 variable_ptr = .variable_ptr + 4+1; 
: 60 1864 E iintiead inbesadabd bates 
° new OCKLC w_outpu = VU; 
; 66 1664 newsblocktcmanen one ried = 0; 
; 66 1665 ); 
3 664 1666 
; os H+ 24 ' Now we can fill in the final size of the new block. 
: 66 1669 2 new_block(cmd_w_size] = .variable_ptr - .new_block; 
668 1670 # - 
; 669 1671 return; 
: 670 1676 
; 671 167 END; 
O1FC 00000 UPGRADE_5_T0_6_COMMAND: 
. ORB Savé R2,R3,R4,R5,R6,R7,R8 3; 1565 
57 04 aC DO 00002 OVL NEW BLOCK, R7 : 1579 
56 20 A? YE 00006 MOVAB 32(R7), VARIABLE_PTR : 
51 04 A? 9E OOOOA MOVAB 4(R7), R1 : 1589 
50 08 AC 00 0000E MOVL OLD_BLOCK, RO : 1590 
54 04 AO 9E 00012 MOVAB 4(RO), R4 + 1602 
01 03 A? 91 00016 CMPB 0 s«3(R7). #1 + 1584 
03 13 OOO1A BEQL =s1$ ; 
0100 31 0001C BRW 17$ : | 
61 B84 OOOIF 1$: CLRW = (R1) : 1589 
52 03 AO 9E 00021 MOVAB 3(RO), R2 : 1590 
61 01 00 62 FO 00025 INSV (R2), #0, #1, (R1) : | 
53 62 01 01 EF OOO2A EXTZV. #1, #1, (R2). R3 + 1591. 
61 01 01 53 FO 000¢F INSV R3, #1. #1, (RI) : 
53 62 01 02 EF 00034 EXTZV a. wi, (RO), R3 + 1592 
61 01 02 53 FO 00039 INSV R3, #2. #1, (R1) ; | 
53 62 01 o3 EF 00056 EXTZV #3. #1. (RO), R3 : 1593. 
61 01 03 53 FO 0004 INSV = R33, «#3, #1, (RI) ; 
53 62 01 04 EF 00048 EXTZV #4. #1. (RO), R3 : 1594 
61 01 04 53 FO 0004D INSV R3. #4. #1, (R1) : | 
61 EO BF 88 00052 B1SB2 #324 (R1) : 1595. 
06 A? 03 80 00056 MOVW #3, 6(R7) : 1596 | 
53 08 Ad : 0005A CVTWL  8(RO), R3 : 1597. 
4 12 0005 BNEQ 2$ 3 
1 04 906 CLRL sR : 
6 11 0006 BRB &$ : 
1 D4 00064 2 CLRL : 1598 
if 11 00066 BRB 4$ : 
52 2 C1 00068 3$ ADDL3 R3, RO, R2 : 
10 BC41 3 D1 006¢ CMPL R2. @OLD_VECTORLI) ; 
0 if 0071 BNEG 4 : 
51 0c BC41 D 0075 MOVL § @NEW_VECTORCI), R1 ; 
08 11 0007 BRB 5 : 
£9 51 10 Bt F3 OO07A 4$ AOBLEQ @OLD_VECTOR, I, 3$ ; 
51 1 CE 0007F MNEGL #1, ; 
3 C AC D 0082 5$ MOVL. NEW_VECTOR, R2 : 
1 4 A2 C2 000 SUBL2 4(R2), R1 ; 
08 A? 51 DO 0008A 6$ MOVL R1, 8(R7) : 1597 
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i Description: This routine is called to fill in a new entity block from 
the corresponding old block. 


i 

i 

' Parameters: new _block i: reference, the new block to be filled in. 
: e type and subtype are already resent. 
; old_block By reference, the corresponding old block. 
: new_vector By reference, the vector of new block 

: addresses. Zeroth entry is block count. 
; old_vector By reference, the vector of old block 

: addresses. 

get_vm By reference, see above. 

Returns: Nothing. 

] 

' 


Notes: 


ROUTINE upgrade_5_to_6_entity(new_block: pointer, 
old_block: pointer, 
new_vector: ref eb ned - tong}. 
old_vector: ref vectorl,longJ, 
get_vm: pointer) : novalue 


= BEGIN 


local 
status: long, 
variable_ptr: pointer; 


! Set up to add information to the variable portion of the new block. 
variable_ptr = new_blockCent_z_variable); 


! Now fill in the new entity block from the old one. Note that we cannot 
! differentiate between qualifiers and keywords. 


new oblock tent _b oetyee © 
.old_bloc ent5_ w.number] lequ 8 then ent_k_parameter else ent_k_qualifier); 
new, block! uP _W_tlags 
new_blockCent_v_val] = sold. blockCent5_v “vend: 
new_blockCent_v_ne d-block ent. v_ 
new_blockCent_v_de tru Y. = tt plocgt ae, : det tr e); 
new_blockLent_v_batdef) = .old_BlockCent5_V_Batde et}: 
new_block ent_v_valreq = ,old- piogs ent5_v qvatrea : 
new_blockCent_v_list] = .old_blocklent5 v_ 
new_blockCent_v_concat) = .ofd_blockCent5_v_concat); 
new_blockCent_v_impcat) = .old “om 
new_blocklent_v_verb] = “old. block ont _v_verb : 
new_blockLent_v_parm “plockCentS-v_parm 
new_blockCent— " “hereptde! ind” z= “old. blo tkfents. v_mcroptdim); 
new_blockCent_v_mcrignore) = .old_blocklentS_v_mcrignore); 
new_blockCent_w_tro ount r 3. 
newblockCent~\"next) = old blockLent5 a pert] eqlu 0 then 0 else 

newb block. _addr hy id_block+.ol — ent5_b_next]) = .new_vector(1)); 
new_blockCent_l_syntax] = lif Told_blockCéntS_w_syntax] eqlu 0 then 0 else 
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: f : 7 1 new block address(.old_block+.old_blocklent5_w_syntax]) = .new_vector(1]); 

: 7 4 17 j ' for the user yee definition, we have to create a skeleton type block as 

; f 7 4 i a header for the keyword entity blocks. 

: 735 17 § if .old_blockLentS_w_keywords] eqlu 0 then 

SS. § 17 “new_blockCénf_i_user_type] = 0 

i oe ne pet 

; oca 

$ ti os type_block: pointer; 

: 741 17tg status = ( get. zim) (iret (type. k che lenge type_block); 

: 74 174 type_block(type_ M size tyber h; 

3; 74 1744 type_block(type_b_type =” ock “<i o 

: 744 1745 type_block(type_b_su type] = , tye. ~k type; 

3: 745 Eo | type_block(type_w_flags 
3; 746 174 type_blockLtype_w_tro_count] = 1; 
: 747 1748 type_block(type_l~ -keywords] = “new block address}, 044. -block+. old_blockCent5_w_keywords]) - .new avecto| 
; 748 1749 type block(type_wname] = type blockE type. wipref ore 
; 749 1750 new_BlockCent_l_user _type] = . type_bloc 7new_ aaa 1); | 
Bi i789 $7 | 
; O36 1938 Continue filling in the entity block. Note that we can't get the entity | 
3 te; 1738 ! number except for parameters. 
: 755 1796 new_blockCent_b_number] = 

: 756 175 new, phockt ene _b stubtypel eqlu ent ;\ pergneter then .old_blockCent5_w_number] else 0); 

s sr 1758 new_blockCent_b_ valt pe] =".0ld_blockCent5_b_ vs pit yped 3 

: 758 1759 new_blockCent_w_name] = BI 9 ptr - .new_ 

: 759 1760 if Told_ blockTent w_name] Lequ 8° then ( 

3; 760 1761 “variab’e_ptr 9.0.8.0) = 

3: 761 1796 variable-ptr(1,0, 6} = 

3 166 176 variebie’ _ptr = ‘O + ,old_blockCent5_w_name); 

3; 76 1764 (dar tabse. _ptr = ooo lente ptr + 14#23 

Bo iy es. 
: n 
3 ree 170r entity_name = .old_block + .old_blockCent5_w_name]: vector(, byte); 
: 768 1769 ch$move(1+.entity_ metry yl name(0), variable ptr); 

3 768 1209 variable_ptr = .variable_ptr + 1?.entity_name(0]; 

: 771 177 HF .old_blockCent5_w label) eglu 0 then 

: 772 177 “new_blockléent_w_ label = .new_blockCent_w_name) 

oes | tee 

; n 

: ore 17e8 entity_label = .old_block + .o.c_blockCent5_w_labelJ: vector(,bytel; 

: 77 1778 new_ blockLent label] = .variable_ptr - .new_blo 

: 778 1779 ch$move(1+ entity. Labet C0} .entity. Tabe( (0), variable. ptr); 

: 443 1709 variable _ptr = .variable_ptr + 1+lentity_ Label 

: 781 17 ¢ ii -old_blockCent5_w_prompt) ogle 8 then 

; 78 17 “new_blockCént_w_prompt] = 

3; 78 1784 else 

3: 786 1785 bind : 

3 4 34 1736 entity_prompt = .old_block + .old_blockCent5_w_prompt): vector(,byte); 


po oer ee 
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0000 


Ok dd 
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new_blockCent_w prompt] = ,variable_ptr -_,new block; 
chSfove(1+.enti ty. prom tLOlventity promptlol, syariable_ptr):; 


variable ptr = .variable_ptr + 1+.éntity_prompt 


): 
if -old_blockLents w defval) eglu 0 then 
new_blocklént_w_defval] = 


bind 


else ( 
entity_defval = .old_block + .old_blockCent5_w_defval]: vector(,byted; 
new cay widefval] = .variable_ptr = .new_block; 
variable ptr(0,0,8,0] = 1+ ent ity detyatl F 
ch$move(T+.entity_defvall0j,enti y.defvall0d, -variable_ptr+1); 
variable ptr = .variable_ptr + 1 +#°1+.entity_defval(0J; 
! Now we can fill in the final size of the new block. 
new. blockCent_w_size] = .variable_ptr - .new_block; 
return; 


O3FC 00000 UPGRADE_5 _TO_6_ENTITY: 
GORD ~ Save R2,R3,R4,R5,R6,R7,R8B,RP 


SE 08 ¢2 0000 SUBL2 : 
57 04 AC 7D 0000 MOVO NEWBLOCK, R7 
Sb 1E A? 9E 00009 MOVAB 30(R7), VARIABLE_PTR 
08 04 A8 61 0000D CMPW 3s RB), #8 
05 1A 00011 BGTRU 1$ 
50 01 00 00013 MOVL #1, RO 
03 11 00016 BRB 2$ 
50 08 DO 00018 1$: MOVL #2, RO 
63 A? 50 90 0001B 2$: MOVB RO, 3(R7) 
50 04 A? 9E 6001f MOVAB 4(R7), RO 
60 Bs 0023 CLRW = (RO) 
51 10 A& 9E 900 5 V 16(R8), R1 
61 01 01 EF 00029 EXTZV #1, #1. (RI), R2 
01 0 52 FO 00 INSV R2. #0, #1, (RO) 
61 1 02 EF EXTZv #2. #1. (RID, R2 
01 01 52 FO 00038 INSV Re, #1, #1, (RO) 
61 01 g EF 00030 EXTZV. #3. #1. (RI), R2 
01 02 FO 006¢ INSV R2. #2, #1, (RO) 
61 1 4 EF 0004 EXTZ2V #4. #1. (RID, R2 
01 3 FO 0004C INSV Re. #3. #1, €RO) 
61 01 EF 31 EXTZV. #5. #1. (RID, R2 
01 04 FO 6 INSV R2. #4, #1, (RO) 
61 01 FE 5 EXTZV #6. #1. (RID, R2 
01 5 FO 0006 INSV Re. #5. #1, (RO) 
it +f ff 0 eR riage RO Ag crt) Re 
1 $ 01 Al FS 006F INSV —-1(R1), #7, #1, (RO) 
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; Routine Size: 535 bytes, Routine Base: _CDUSCODE + 0693 


810 1811 

sii 18l¢ 1 END 
12 181 0 ELUDOM ’ 
/ 
/ 
/ 
j 
/ 
PSECT SUMMARY j 
j 
Name Bytes Attributes j 
_CDUSCODE 2218 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) f 

Library Statistics 
j 
File Total Loaded Percent Mapped / 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 9 0 1000 00:01.9 } 
/ 
/ 
r] 
/ 
, 
COMMAND QUALIFIERS : 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:UPGRADE/GBJ=OBJ$: UPGRADE MSRC$:UPGRADE/UPDATE = (ENH$: UPGRADE ) : 
; Size: 2218 code + 0 data bytes 

Run Time: 0 E 


Elapsed Time: 01 1:45. 2 


224 
: Lexemes/CPU-Min: 25888 
: ponoty 9 Used: 305 pages 
; Compilation Complete 


cocecece Symbols -------- Pages Processing | 
Time 
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